home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / xtalkv11.arc / DIRMCT01.XTS < prev    next >
Text File  |  1985-07-05  |  6KB  |  212 lines
  1. LAbel CTM01
  2. CLear
  3. SCreen T
  4. MEssage
  5. *══════════════════════════════════════════════════════════════════════*
  6. *     CONNECTICUT            203                                       *
  7. *══════════════════════════════════════════════════════════════════════*
  8. *  S  BBS/ADDRESS            SYSOP NAME/VOICE     BBS SETUP REQ'TS     *
  9. *══════════════════════════════════════════════════════════════════════*
  10. │  A: THE BROADWALK          DATA CRUSADER        1200-N-8-1 IBM3101   │
  11. │     NEW CANAAN, CT                              203-972-3324  RBBS   │
  12. │                                                                      │
  13. │  B: COMPUTERLAND HOSTCOMM  SCOTT MAENTZ         1200-N-8-1 IBM3101   │
  14. │     EAST HARTFORD, CT      203-   -     6P-6A   203-289-6321  HOSTC  │
  15. │                                                                      │
  16. │  C: PConnecticut           JOHN O'BOYLE         1200-N-8-1 IBM3101   │
  17. │     WEST HARTFORD, CT                   24HRS $ 203-521-1991         │
  18. │                                                                      │
  19. │  D:                        WHIT WYANT           1200-N-8-1 IBM3101   │
  20. │     NEW CANAAN, CT                              203-966-8869         │
  21. │                                                                      │
  22. │  E: CONNECTICUT YANKEE     WIN CODY             1200-N-8-1 IBM3101   │
  23. │     HARTFORD, CT                        24HRS   203-724-6043  RBBS   │
  24. *══════════════════════════════════════════════════════════════════════*
  25. * P-XTALK / Q-XDOS  / R-RESTART SCRIPT / S-PREV MENU / T-NEXT MENU     *
  26. * U-RETURN TO STATE SELECTIONS                                         *
  27. *══════════════════════════════════════════════════════════════════════*
  28. .
  29. LAbel CTQ01-A
  30. ASk     Enter CHOICE:
  31. IF A,B,C,D,E SKip CTD01-@
  32. IF P,Q,R,S,T SKip CTD01-@
  33. IF U         SKip CTD01-@
  34. CLear
  35. MEssage
  36. *══════════════════════════════════════════════════════════════════════*
  37. * A MENU HAS NOT BEEN SETUP FOR THAT BBS YET - PRESS ENTER TO CON'T    *
  38. *══════════════════════════════════════════════════════════════════════*
  39. .
  40. ALarm 2 now
  41. WAit echo
  42. JUmp CTM01
  43. ;
  44. LAbel CTD01-A
  45. Nu 1(203)972-3324
  46. Na THE BROADWALK BBS
  47. Skip DIAL
  48. ;
  49. LAbel CTD01-B
  50. Nu 1(203)289-6321
  51. Na EAST HARTFORD
  52. Skip DIAL
  53. ;
  54. LAbel CTD01-C
  55. Nu 1(203)521-1991
  56. Na PCONNETICUT
  57. Skip DIAL
  58. ;
  59. LAbel CTD01-D
  60. Nu 1(203)966-8869
  61. Na NEW CANAAN
  62. Skip DIAL
  63. ;
  64. LAbel CTD01-E
  65. Nu 1(203)724-6043
  66. Na TRAVELERS INSURANCE
  67. Skip DIAL
  68. ;
  69. LAbel CTD01-P
  70. JUmp RETXTALK
  71. ;
  72. LAbel CTD01-Q
  73. JUmp  XDOS
  74. ;
  75. LAbel CTD01-R
  76. rwind
  77. ;
  78. LAbel CTD01-S
  79. JUmp  CTM02
  80. ;
  81. LAbel CTD01-T
  82. JUmp  CTM02
  83. ;
  84. LAbel CTD01-U
  85. JUmp  DIRMRETN
  86. ;
  87. LAbel CTM02
  88. CLear
  89. MEssage
  90. *══════════════════════════════════════════════════════════════════════*
  91. *     CONNECTICUT            203                                       *
  92. *══════════════════════════════════════════════════════════════════════*
  93. *  S  BBS/ADDRESS            SYSOP NAME/VOICE     BBS SETUP REQ'TS     *
  94. *══════════════════════════════════════════════════════════════════════*
  95. │  A:                                             1200-N-8-1 IBM3101   │
  96. │                                                 203-   -      XXXX   │
  97. │                                                                      │
  98. │  B:                                             1200-N-8-1 IBM3101   │
  99. │                                                 203-   -      XXXX   │
  100. │                                                                      │
  101. │  C:                                             1200-N-8-1 IBM3101   │
  102. │                                                 203-   -      XXXX   │
  103. │                                                                      │
  104. │  D:                                             1200-N-8-1 IBM3101   │
  105. │                                                 203-   -      XXXX   │
  106. │                                                                      │
  107. │  E:                                             1200-N-8-1 IBM3101   │
  108. │                                                 203-   -      XXXX   │
  109. *══════════════════════════════════════════════════════════════════════*
  110. * P-XTALK / Q-XDOS  / R-RESTART SCRIPT / S-PREV MENU / T-NEXT MENU     *
  111. * U-RETURN TO STATE SELECTIONS                                         *
  112. *══════════════════════════════════════════════════════════════════════*
  113. .
  114. LAbel CTQ02-A
  115. ASk     Enter CHOICE:
  116. IF P,Q,R,S,T SKip CTD02-@
  117. IF U         SKip CTD02-@
  118. CLear
  119. MEssage
  120. *══════════════════════════════════════════════════════════════════════*
  121. * A MENU HAS NOT BEEN SETUP FOR THAT BBS YET - PRESS ENTER TO CON'T    *
  122. *══════════════════════════════════════════════════════════════════════*
  123. .
  124. ALarm 2 now
  125. WAit echo
  126. JUmp CTM02
  127. ;
  128. LAbel CTD02-A
  129. Nu 1(203)   -
  130. Na
  131. Skip DIAL
  132. ;
  133. LAbel CTD02-B
  134. Nu 1(203)   -
  135. Na
  136. Skip DIAL
  137. ;
  138. LAbel CTD02-C
  139. Nu 1(203)   -
  140. Na
  141. Skip DIAL
  142. ;
  143. LAbel CTD02-D
  144. Nu 1(203)   -
  145. Na
  146. Skip DIAL
  147. ;
  148. LAbel CTD02-E
  149. Nu 1(203)   -
  150. Na
  151. Skip DIAL
  152. ;
  153. LAbel CTD02-P
  154. JUmp RETXTALK
  155. ;
  156. LAbel CTD02-Q
  157. JUmp  XDOS
  158. ;
  159. LAbel CTD02-R
  160. rwind
  161. ;
  162. LAbel CTD02-S
  163. JUmp  CTM01
  164. ;
  165. LAbel CTD02-T
  166. JUmp  CTM01
  167. ;
  168. LAbel CTD02-U
  169. JUmp  DIRMRETN
  170. ;
  171. LAbel XDOS
  172. CLear
  173. SCreen s
  174. XDOS
  175. ;
  176. LAbel RESET
  177. CLear
  178. SCreen s
  179. LOad std
  180.  
  181. Label RETXTALK
  182. CLear
  183. SCreen S
  184. ABORT
  185. ;
  186. Label DIAL
  187. CLear
  188. SCreen S
  189. AL 2
  190. MEssage
  191.  
  192.  
  193.  
  194.         ██ ██ ██ ██ ██ ██ ██ ██     DIALING    ██ ██ ██ ██ ██ ██ ██ ██
  195.  
  196.  
  197.  
  198. .
  199. GO R3/35
  200. WAit quiet 10
  201. reply |
  202. SCreen T
  203. JUmp   CONNECT
  204. ;
  205. LAbel DIRMRETN
  206. CLear
  207. LOad  DIRMENU
  208. ;
  209. LAbel CONNECT
  210. AL 3
  211.  
  212.